home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / rwrdfinl.dxr / 00141.ls < prev    next >
Encoding:
Text File  |  1996-07-26  |  1.0 KB  |  39 lines
  1. on mouseUp
  2.   global lastName
  3.   puppetSprite(the clickOn, 1)
  4.   set nom to the name of cast the castNum of sprite the clickOn
  5.   if nom = "singBtn" then
  6.     repeat with f = value(lastName) to 6
  7.       set the castNum of sprite the clickOn to the number of cast "stopBtn"
  8.       updateStage()
  9.       if value(f) < 6 then
  10.         set w to string(f)
  11.         set fld to lastName & "Fld"
  12.         repeat with t = 2 to 7
  13.           put the castNum of sprite t into line t of field fld
  14.         end repeat
  15.         go(w)
  16.         play frame "sing"
  17.         set fld to lastName & "Fld"
  18.         repeat with t = 2 to 7
  19.           puppetSprite(t, 1)
  20.           set x to value(line t of field fld)
  21.           set the castNum of sprite t to x
  22.         end repeat
  23.         updateStage()
  24.       end if
  25.     end repeat
  26.   else
  27.     set the castNum of sprite the clickOn to the number of cast "singBtn"
  28.     updateStage()
  29.     if soundBusy(2) then
  30.       sound close 2
  31.       updateStage()
  32.       play done
  33.     else
  34.       puppetSound(0)
  35.       play done
  36.     end if
  37.   end if
  38. end
  39.